home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / test / iterate.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  621b  |  30 lines
  1. /* */
  2. options results
  3. parse arg file
  4.  
  5. address ami2d 'save(ram:temp.dat)'
  6.  
  7. if ~show('ports', "NLN2D") then do
  8.     address command 'run ami2d:bin/nln2d'
  9.     do while ~show('ports', "NLN2D")
  10.     end
  11. end
  12.  
  13. address nln2d 'read(ram:temp.dat)'
  14.  
  15. do i=0 to 20
  16.     call postmsg(0,11,"formkf -                  ",AMI2D)
  17.     address nln2d 'formkf'
  18.     call postmsg(0,11,"solve -",AMI2D)
  19.     address nln2d 'solve'
  20.     parse var result du
  21.     call postmsg(0,11,"solve - done\"result,AMI2D)
  22.     if du < 1e-4 then leave
  23. end
  24.  
  25. address nln2d 'save('file')'
  26. address ami2d 'read('file')'
  27. address ami2d 'plot'
  28. address ami2d 'plot(deform)'
  29. exit
  30.